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T = 'V04-000 : Process /LIST and /FULL qualifiers 
ESSING_MODE (EXTERNAL = GENERAL) 


MODULE INSLIST ( 


BEGIN 


' 
VRE RARER AAA AERA AAA AREA AAA AAA AEA AAA 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
iw DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 
® 
® 
* 
H ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
it OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE 1S HEREBY = 
is TRANSFERRED. . 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
is CORPORATION. : 
*® 
® 
& 
*® 
® 
® 
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NOONE WN 30 OD NAME WN SO ODNAUE WN $0 ODNAOUES WN (OO ONAUESWWR “OVO ONOUSWN— 
a a tk ak kd dd dd dd I OOOO 
* 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
5 084 | | 
'® 
2 0 's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ iS: '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
2 02 '® | 
¢ O0¢ Lee AREAAARAEARAAAAAAAAAAAAAAREAAEAAAAAEEEAAAAAAAAAAAAAAAAAAAAREREARAEEREREEE | 
0 
3 003 '++ 
3 003 ! FACILITY: Install 
3 003 : 
3 003 ! ABSTRACT: 
3 003 ‘ 
; Ons Print the contents of a KFE entry or of all the entries. 
3 003 ! ENVIRONMENT: 
3 003 ‘ . 
2 Bae VAX/VMS operating system. 
Pr +94 AUTHOR: Bob Grosso, April 1983 
4 004 ! Modified by: 
4 004 : 
4 0046 ; v03-013 MSHO061 Michael S. Harve 5-Jul-1984 | 
? 744 List EXECUTE_ONLY attribute if set for known image. | 
4 0049 ! v03-012 MSHO0S7 Michael S. Harve ey 26-Jun-1984 
: Bpee List WRITEABLE attribute along with all the others. 
5 0036 ! v03-011 MSHO049 Michael S. Harvey | re Pig 
5 005 : Don't output acenin less and inaccurate data 
2 Boe non-native mode installed images. 
5 0036 : v03-010 mSHO057 Michael S. Harvey 26-Apr-1984 
5 005 : Fall back to hard device name if no volume name 


| 
| 
| 
| 
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: 8 p28 ] is available. 

: 60 060 1} V03-009 MSH0034 Michael S$. Harvey 18-Apr-1984 

; oF 061 1! Display raw device name string in KFD for /STRUCTURE 
: ° p06 ! Listing so we can see what's really stored there. 

: 66 0064 1: v03-008 MSH0028 Michael S. Harvey 9-Apr-1984 
3; 6 0065 1! List maximum shared count correctly. Also, display 

; 66 Boee 1! global section count to hetp interpret the other 

; of se4 ! counts being displayed on /FULL Listings. 

: 69 0069 | i V03-007 MSH0026 Michael S. Harvey 4-Apr-1984 

;. = 070 1! Recognize when known file database either doesn't 

eo) ae 0071 1! exist or is empty. and do the right thing when one 

; i bos : } tries to access it. 

; 7 0074 1! v03-006 MSHO022 Michael S. Harvey 20-Mar-1984 

; Jo 0075 1! Convert unconcealed device name, which may be an 

; 0076 1! allocation class type device name, into a form that 

; a pore : } does not have the allocation class in it. 

; 2 0079 1} V03-005 BLS0256 Benn Schreiber 27-Dec-1983 | 
; 80 0080 1! Clean up buffer handling. Reference all pool from EXEC 

; 3 poet ; } mode, since protected against user mode. 

: 8 0083 1 | V03-004 RPG0004 Bob Grosso 13-Sep-1983 | 
; 84 0084 1! List WCB info. 

; 0085 1! Trim blanks from end of Line. 
; = 0086 1! 

; 87 0087 1! v03-003 RPGO003 Bob Grosso July 20, 1983 | 
; =«6«88 0088 1! Clean up peas format. 
. @ 0089 1! Add /structure listing. 
; + Bpe0 : Print listing from user mode. 

: 92 0092 1: v03-002 RPGO002 Bob Grosso July 8, 1983 | 
; 4 Boer : Bypass printing WCB info. 
: 95 0095 1 | 03-001 RPGO001 Bob Grosso July 7, 1983 | 
:; | «2«9%6 0096 1! Reduce signalling while in EXEC mode. 

; 9 0097 1! 
; | «698 0098 1 !-- 

3; WwW 0099 1 

{108 O101 1 i Include fil 

3 ! Include es 

: 19¢ O10 Brive 

: 10 0103 1 E 

; Hr B108 ' LIBRARY ‘SYSS$LIBRARY:LIB.L32'; ! VAX/VMS system definitions 

: 106 0106 1 REQUIRE 'SRC$:INSPREFIX.REQ'; 

3; 107 024 1 REQUIRE "LIBS: INSDEF.R32'; 


8 | 
INSLIST 1b-se 1984 01:54:25 AX-11 Bliss-32 V4.0-742 Page 3 
v04 Declarations 107 368-198e 93:38:88 INSTAL.SRCJINSLIST.B32;1 . (2), 
: 109 07 1 XSBTTL ‘Declarations’; ‘ 
; 110 58 1! ; 
; 111 09 1! Table of contents ; 
3 ig 10 1! ; 
Fe 11°11 : 
s 1146 \¢ 1 FORWARD ROUTINE : 
s 495 1 1 NS_LIST, | ; 
: 116 0314 1 LIST_KFE_ENTRIES, ! Traverse structure to List all KFEs ; 
; 17 0315 1 LIST KFE ENTRY. ! List one KFE é 
: (118 0316 1 FORMAT_KFD, ! Format and print KFD block : 
3; «119 8 17 «1 FORMAT_KFE ' Format and eciot KFE entry | ; 
: 120 18 1 PRINT _PRIVS, i Print the ASCII keywords for the bits set in a quadword pr| : 
; (121 0319 1 FORMAT LINE ! Format ASCII output into Line buffer. | : 
3 \$¢ 0320 1 TERMINATE LINE : NOVALUE, ' Copy Line buffer to temporary buffer ; 
; ¥ 0321 1 FORMAT TERMINATE_LINE : NOVALUE, ' Format then terminate Line : 
3 \¢e B3 ; : PRINTOOT; ! Print the contents of the temporary buffer 
: 126 0334 1! | 
: 127 0325 1 ! External routines 
: 128 0326 1! 
3 19 0327 1 
: 150 0328 1 EXTERNAL ROUTINE 
; Vay O83 1 LIBSGET_VM, ! get virtual memory 
; 136 0330 1 LIBSFREE ! return virtual memory 
. as 0331 1 LIBSPUT OUTPUT, | 
3; «(134 Oaa¢ 1 SYSSGETBVIW : ADDRESSING MODE (GENERAL), ! Get Device Information 
5 ia Og87 : SYSSFAOL : ADDRESSING_MOBDE (GENERAL); ! Format ASCII output | 
: 133 0335 1 EXTERNAL ROUTINE 
; 138 0336 1 INSSEXECUTE_IN_EXEC_WITH_R_LOCK; 
s 139 0337 1 
: 140 0338 1 EXTERNAL 
> (161 0339 1 CTLSGL_KNOWNF IL, ' Process pointer to the Known file List pointer block 
: 136 Beco 1 EXESGL_KNOWN FILES ! Exec pointer to the Known file List pointer block 
; 14 0341 1 INSSGL-CTLMSR : BLOCK (1), i INSTALL control flags | 
3 144 Oeeg 1 INS$G_OUTRAB : BBLOCK, ! Record output block for output buffer 
3 i O37 1 PRVSAB_NAMES; ! ASCII List of privileges 
8 & gas 
; 147 6345 1 EXTERNAL LITERAL | 
: 148 Deeg 1 INS$_EMPTYLST, ! The Known File List is empty 
: «149 0347 1 INSS$_FAILGETVM, ! Failed to get virtual memory | 
: 150 0348 1 INS$_NOLIST, ! There is no Known File List 
; 12) hr : INS$_NOVER; ! Error obtaining file version 
: 138 038) | GLOBAL | 
3: «6154 O26 1 INS$F AOOUTBUF ! Output buffer 
3 13? B27 : INSSFAOBUFDESC : BBLOCK CDSC$C_S_BLNI; ! Descriptor of output buffer 
s 157 0355 1 GLOBAL LITERAL : 
: 158 $29 1 INSSC_FAOBUFLEN = 255; ' size of output buffer 
3; 159 a 
; 160 358 1! : i ; 
: 6161 359 1! Set up user buffer for copying Lists to while in kernel mode 
$ 166 et 1! 
s 61 1 
3 164 306 1 TMPBUF _LEN, ' Size of allocated buffer 
3; «6165 0363 1 TMPBUF , ! Address of allocated buffer 
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; 166 rt: } TMPBUF _PTR : REF SBBLOCK; ! Point to free buffer space 

; 168 $ 1 BIND 

3 199 1 : 

; 119 é3 } Control strings for FAO 

3 176 5 1 FAOCTL_DDT = SDESCRIPTOR ("!AS!AS"), 

; i7 6 FAOCTL_VERSION = $DESCRIPTOR (';!UW') 

if Po} FABESAIDARR S BBERERIPIOR UU Bgchgad adr/stazret = aussi, | 

; 176 6 74 «(1 FAOCTL_FLAGS = SDESCRIPTOR ("!AC'), 

: ih 0376 1 FADETEZWINDOW «== ‘SDESCRIPTOR (* Window address/size = ixtviuuse | 

° el = | 

; 179 0 7 1 FAOCTL_HEADER = SDESCRIPTOR (' Header address/size = 1XL/iUW"), 

: 180 Bare 1 FAOCTL_USECNT = $SDESCRIPTOR (‘ Entry access count = 'UL"), 

; 18) 0379 1 FAOCTL_SHRUSECNT = $DESCRIPTOR (' Current / Maximum shared = !UW / !UW') 

; ise 0380 1 FAOCTL_CMODCURR = S$DESCRIPTOR (' Current shared count = 'UW'), | 

:; 18 0381 1 FAOCTL_GBLCNT = SDESCRIPTOR (‘ Global section count = 'uWw'), 

; «(186 Oaee 1 FAOCTL_COMPAT_TYP = $DESCRIPTOR (° Compatability type = !xw"), 

; 185 0383 1 FAOCTL_PRIVHD = SDESCRIPTOR (' Privileges = '), 

; «4186 0384 1 FAOCTL_PRIVHD2 = $DESCRIPTOR (° "34 | 

: 187 0385 1 FAOCTL_PRIV = SDESCRIPTOR ("!AC '); 

; «188 0386 1 | 
| 
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Mite td GET_NUMENTRIES 12-88-18 93:36:48 INSTAL.SRCJINSLIST.B32;1 — (3). 
, 2 eset. "GET_NUMENTRIES': 
1 ROUTINE GET "AUMENTRIES (RETCOUNT) = 

BEGIN 

; * FUNCTIONAL DESCRIPTION: 

; Return the number of entries to allocate for the Listing. 


lee 
MAP 

RETCOUNT : REF VECTORC,LONG); | 
BIND 


AVASSRIERR WV OSB LEAR OLS 


= 
SSBLIERRANVLS ISLS ARANLS SSG 
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e KFPB = EXESGL_KNOWN_FILES : REF SBBLOCK; 
4 IF .KFPB EQL 0 
THEN RETURN INS$_NOLIST; 
4 IF .KFPBCKFPBSL_KFDLST) EQL 0 
Be THEN RETURN” INS$_EMPTYLST; 
0 ae Tcoerr eo} = .KFPBCKFPBSW_KFDLSTCNTI; 
be alg 


«TITLE INSLIST 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE,2 
53 41 21 53 41 21 Q0000 P.AAB: .ASCII \!AS!AS\ 
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0 -BLKB 2 
00000 006° 8 B08 i P.AAA: .LONG 6 3 
000000 -ADDRESS P.AAB 3 
57 55 31 $0099 r. AAD: ASCII \;!uW\ 3 
00 00006. 0014 P.AAC: .LONG 3 
000000 0018 “Ageness P AAD 3 
3 72 64 61 $9 64 ¢! 65 68 20 74 73 69 af OO1C P.AAF: .ASCII \ List head adr/siz/ref = !XL/!UW/!UW\ : 
1 2F 4C 58 21 20 30 20 66 $3 4 : @ 69 f Boge 3 
4 44 4 9 944 P.AAE: .LONG 36 : 
00000 " 44 -ADDRESS P.AAF 3 
43 41 21 20 20 apes P.AAH: .ASCII \ 'AC\ : 
4 -BLK 2 
4443 50 P.AAG: .LONG 6 3 
0000 ; F «ADDRESS P.AAH 3 
43 41 4 8 P.AAJ: .ASCII \!AC\ : 
-BLKB 1 
6° 008 25 P.AAI: .LONG 3 : 
’ oADDRESS, P.AAJ ; g 
61 20 79 72 74 6E 45 39 0 $9 $9 20 $ 1 Boe “ASCII Entry address/size/index = !XL\ ; 
64 6€— 69 2F 65 $2 3 F ; & 65 4 : : 
42 3 4 $F 9 g ; F eASCII \/!UW/!XB\ : 
8 0 4 P.AAK LON ; 
0 -ADDRESS P.AAL : 


F 8 
INSLIST 16-Sep-1984 01:54: AX-11 Bliss-32 V4.0-742 
vibes tts GET_NUMENTRIES 18-808-1 3c 93:38:93 P INSTAL SRe INSLIST.832;1 
? C P.AAN: .ASCII \ Window address/size 2 !ML\ ; 


eASCIT \/!UW\ 


SRROMER REY 
: 


‘7 2 By Books 
9 og th P.LAAM: 
$8 58 $3 g H e3 i ? ‘3 5 : : j 06 P.AAP: 47's pe goa Header address/size = !XL\ 
g g , . FS eASCIT \/!UW\ 
rer Ee BE um, EEN im | 
aM cE 5 i é3 20 3 ‘3 :3 i . ts ntry access count = 'UL : 
00000 12C P.AAQ: .LONG 40 
3 75 43 20 20 $f 20 20 .* a0 $i P.AAT: a. Current / Maximum shared = !UW\ ; 
SHER REE RS EF gis 
57 1 20 2F 20 0015 eASCII \ / !UW\ 
ors, Evans: iE dy 
2 7 43 20 20 20 20 20 20 20 0 0016¢ P.AAV: ASCII \ Current shared count\<9>\ = \ 
SF 8 Bis 
1 0018 eASCIT \!UW\ 
90000025 ah P.AAU “PONG ? 
0000000" 00198 .ADDRESS P.AAV ; 
gf #5 { $8 a 2 $9 20 ee $9 de P.AAX: .ASCII \ Global section count = 'UWN ; 
en a 7 abo 8 aoice P.AAW: .LONG 40 
0000000" 001¢8 " TADDRESS P.AAX ; 
6D 6F 43 20 20 0 20 20 2 O1CC P.AAZ: ASCII \ Compatability type = 'MW\ 
* 5 Z : : Y 20 ae aEA P.AAY: .LONG 40 
69 72 50 20 20 $8 9 8 39 "20 2 ore P.ABB: 12) a Privileges = \ 
0 11 -BLKB 3 
900 0015 14 P.ABA: .LONG 21 
0 * 00218 .ADDRESS P.ABB 
20 20 20 20 20 20 30 30 30 3 6 1C P.ABD: ASCII \ \ 
; -BLKB 3 
0000 06° = “ADDRESS p ABD 
ey im aS BABE! taal EA 
$o0008 0 44 ~ ADDRESS P.ABF 


-PSECT SOWNS,NOEXE,2 


INSLIST 18-se sep-19 4: AX=11 Bliss-32 v4.0-742 Page 7. 
vou=000 GET_NUMENTRIES wSeb-198e 12:35:88 LINSTAL SRESINGLIST OSes oF 3) 
00000 THPBUF_LEN: 
"BLKB 
00004 TMPBUE: -BLKB 4 
THPBUF 
PrBLKB 4 
\PSECT SGLOBALS,NOEXE,2 
00000 INSSFAOOUTBUF : : 


| 
-BLKB 4 | 
00004 INSSFAOBUFDESC:: 
-BLKB. 8 | 
INS$SC_FAOBUFLEN== 255 
OcTC_bbT= P.AAA 
F AOCTL_VERSION= P. AAC 
F AOCTL KF DADR= P.AAE 
FAOCTL—F ILNAM= PL AAG 
FAOCTL-FLAGS= P.AAL 
FAOCTL-KFEADR= P.AAK | 
F AOCTL-WINDOW= P.AAM | 
FAOCTL-HEADER= P. 
FAOCTL-USECNT= P.AAQ 
FAOCTL-SHRUSECNT= PP. 
FAOCTL-CMODCURR=  P.. AAU 
FAOCTL-GBLCNT= TAAW | 
FAOCTL-COMPAT_TYP= P.AAY | 
FAOCTL-PRIVHD= ; 
FAOCTL-PRIVHD2= P. 
FAOCTL-PRIV= P.ABE 
.EXTRN LIBSGET_VM, LIBSFREE_V 
"EXTRN LIBSPUT-OUTPUT, SYSSGLT 
“EXTRN SYSSFAOL, INSSEXE XECUTE-IN-EXEC_WITH_R_LOCK | 
EXTRN ETL S6L_Kiiown? 
“EXTRN EXESGL-KNOWN Les 
sEXTRN INSSGL ee Thss6 OUTRAB 


-EXTRN PRVSAB_NAMES, EMPTYLST 
-EXTRN INS$ “FRILGETIN, NoasS NOLIST 
-EXTRN INS$_NO 


-PSECT SCODES,NOWRT,2 


. Save nothing ; 0388 
50 000000006 00 23 Rov. KFPB, RO 0402 | 

50 000000006 SF 06 00 OVL #INS$_NOLIST, RO > 0403 

0 D 13 1$ TSTL (RO) > 0405 

1 1 BNEQ 2$ ; | 

50 000000006 &F t 17 ROVE #INSS_EMPTYLST, RO : on 

04 g 0c a0 ¢ if 2%: MOVZWL 12(RO> , @RETCOUNT : 0408 
* Sie. 83 


; Routine Size: 40 bytes, Routine Base: S$CODES + 0000 | 


Voued80 GET_NUMENTRIES 1$-00-1 964 93:98:98 FANS TAL OSREd ASL S425 534) Page «35 
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INSSLIST if Sep-19 4 9): 5: 8 {IN STAL.SRCJINSLIS 
1 ZSBTTL ‘INSSLIST'; 
GLOBAL ROUTINE INSSLIST ( KFE ) = 
BEGIN 


1 
1 i 
loee | 
i FUNCTIONAL DESCRIPTION 
; Print the contents of either a specific KFE or all the KFE's. | 
; INPUT: | 
; kfe = 0: List all the KFE entries in all the Lists. 
4 =n 
' 
! 
! 
| 
| 
| 


— 
z 
4d 
am 
et 


2 Page 9 
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: List the KFE entry at address ‘'n'’. 
IMPLICIT OUTPUT: 
none 
ROUTINE VALUE: 


! =p 
LITERA 
RAXLINLEN = 80, 
FULL_LINES = 3 
NUM~STRUC_LINES = $; 
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8 LOCAL 

39 hue AENTRIES, 
44 40 NUM_LINES 
45 41 CME-ARGLST : VECTORC2,LONG), 
4 $3 STATUS; 
4 4 
48 44 ' 
$2 $2 Initialize output buffer and descriptor 
51 ‘3 CHSFILL (ZC’ + JNSSC hoe . INSSF AOOUTBUF ); 
26 48 INSS$FAOBUF DESC CDSC$Q_LENGTH) = INSSC_FAOBUFLEN: 
¥ eP INSSF AOBUF DESC tts “POINTER)] = .INSSFAOOUTBUF ; 
55 51 ENTRIES = 0; 
56 2g One “ERG St 9 = 1; 
57 5 CME 7ibeustt 9} = NUM ENTRIES; 
28 54 STATUS MEXEC (ROOT IN=GET_NUMENTRIES,ARGLST=CME_ARGLST); 
5 55 IF Se aTus. NEO TRUE 
60 28 THEN BEGIN 
61 5 SIGNAL ( ;Status): 
$6 38 RET URN RUE 
6 5 END; 
64 60 
65 61 IF .KFE NEQ 0 
4 $¢ THEN 
of $ NUM_ENTRIES = 2; ' KFE and KFD 

9 65 

$3 66 IF aes tt, “cTiMsK INS$SV_FULL] THEN NUM LINES = .NUM_LINES + NUM FULL _LINES; 
271 67 IF .INSSGL-CTLMSK CINSS$SVZSTRUCTURE] THER NUM_LINES =~.NUM_LINES * NUM-STRUC_LINES; 
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3 7 68 TMPBUF _LEN = MAXLINLEN * .NUM_LINES * .NUM_ENTRIES; 
3 7 rk} STATUS = b IBSGET VA (TMPBUF_LEN, TMPBUF); 
5 I rf IF NOT .STATUS 
3 8 ole BEGIN 
: e7 7 SIGNAL (INSS_FAILGETVM, 1, .TMPBUF_LEN, .STATUS); 
: 78 474 RETURN TRUE; 
3 R of? END; 
5 81 239 CHSFILL (2C° *, .TMPBUF_LEN, .TMPBUF); 
$ TMPBUF _PTR = .TMPBUF; 
a 47 f 
$ S7 rt 4 
> 285 ra STATUS = INSSEXECUTE_IN_EXEC_WITH_R_LOCK (INS_LIST, .KFE); 
3 a6 pees PRINTOUT (); ' Print the contents of TMPBUF 
3 4 goee EXECUTE ( LIBSFREE_VM (TMPBUF_LEN, TMPBUF) ); ' Return the buffer 
3 90 0486 RETURN .STATUS; 
; 291 0487 END; ! routine INSS$LIST 
eEXTRN SYSSCMEXEC 
O1FC 00000 -ENTRY INSSLIST, Save R2,R3,R4,R5,R6,R7,RE 
58 00000000G 00 9E ai MOVAB LIBSSIGNAL, R8 
57 0000' CF 9€ 00009 MOV TMPBUF_LEN, R7 
5E OC C2 QO00E SUBL #i2, S$ 
OOF F 8F 20 6E 0000" o 2c Bpota MOVC #0, (SP), #32, #255, @INSS$FAOOUTBUF 
0000" CF FF 8F 98 0001B MOVZBW #255, INSSFAOBUFDESC 
0000" CF 0000" CF oO Boss MOVL INS$FAOOUTBUF , INSS$F AOBUF DESC +4 
6—E D4 00028 CLRL NUM_ENTRIES 
04 AE 01 D0 O002A MOVL #1, CME_ARGLST 
08 AE 6E 9E O002E MOVAB NUM_ENTRIES, CME_ARGLST+4 
04 AE 9F 00032 PUSHAB CME_ARGLST 
AO AF 9F 00035 PUSHAB GET_NUMENTRIES 
000000006 00 9¢ FB paORe CALLS #2, SYSSCMEXEC 
56 dO 4 F MOVL RO, STATUS 
01 56 01 00 tg CMPL STATUS, #1 
07 13 0004 BEQL 1$ 
56 DD 00047 PUSHL STATUS 
68 01 + pn4? CALLS #1, LIBSSIGNAL 
40 1 4C BRB 5$ 
04 as i) bef 1$: TSTL KFE 
1 51 BEQL 2$ 
oF i) 053 MOVL #2, NUM_ENTRIES 
5 b0 56 2$: MOVL #2, NUM_LINES 
03 000000006 98 E1 59 C #2, INSSGL_CTLMSK+1, 3$ 
co 61 ADDL2 #3, NUM_LIRES 
03 00000000G 00 E1 00064 3$: BC #3, INSSGL_CTLMSK+1, 4$ 
co C ADDL #3, NUM_LINES 
ge C4 F 4$: MULL Wun ENTRIES RO 
6? 00000050 = &F ¢5 2 MULL3. #807 RO, TMPBUr_LEN 
04 A7 F 7A PUSHAB TMPBUF 
57 DD 0007D PUSHL R7 
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CALLS 
MO 


INSTAL. SRCJINSLIST.B32;1 

4 Ligscer. VM 

STAT 1s, 7 
STA TUS 
He ue LEN 
#INSS FAILGETVM 

2 ,jeseien 

n, (SP), #32, TMPBUF_LEN, a@TMPBUF 
TMPBUF TMPBUF _PTR 


Hy NS_LIST 
. “InSSexecure. IN_EXEC_WITH_R_LOCK 
RO, TATUS 


#0, PR PRINTOUT 


R 

HF LIBSFREE_VM 
STATUS, 7$ 

STATUS, RO 
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vO0e= INS_LIST 1erge871982 93:38:83 FINS tac saedineu ist aso. 9 655 | 
: 296 489 1 2SBTTL ‘INS_LIST'; H 
: $90 £33 | ROUTINE INS_LIST ( KFE ) | 
; = = . 
3 3 136 BEGIN | ° 
; 298 49 'o+4 ; 
; 299 494 2 i ; 
3 64 rhe FUNCTIONAL DESCRIPTION: : 
: 0§ 437 Print the contents of either a specific KFE or all the KFE's. ‘ 
: 304 198 ' INPUT: ; 
; 305 bens ! : 
; 306 501 ! kfe = 0: List all the KFE entries in all the Lists. ; 
: 307 b20¢ : =n: List the KFE entry at address ‘'n’’. ‘ 
; 308 050 ! ; 
F +4 B20% IMPLICIT INPUT: : 
; 311 0506 : ins$gl_ctlmsk : INSTALL control flags determine whether to give an : 
$ z\¢ 0507 : abreviated or FULL listing. ; 
: a 8208 ins$g_outrab : Record access block for output stream. ; 
3; 315 0510 ! OUTPUT: ; 
:; 316 0511 ! : 
s 317 b21§ ! List the known file image List for a single entry : 
; 318 051 ' or for every entry in all the Lists. : 
; #319 0514 ! ‘ 
; 320 0515 ! IMPLICIT OUTPUT: : 
3 (Sel 0516 ! : 
3; pee 0517 : none : 
: 323 0518 ‘ ‘ 
3 $$¢ 0519 ' ROUTINE VALUE: : 
: 325 0520 ! : 
: 326 0521 2 !--- . 
3; 327 05 § § LOCAL . 
3 See 05 STATUS; . 
; 329 0524 2 . 
3 339 8262 !e+¢ ; 
3; 331 05 $ ! t : 
. 2 052 ! Format and print the contents of the buffer ; 
3; 333 0528 ! : 
3 $e 0529 lene $ 
; 5 0530 g 
; 336 0531 IF .KFE EQL 0 ; 
s ¢ 83 ¢ THEN 3 
3 8 5 STATUS = LIST_KFE_ENTRIES () 3 
3; 339 0534 ELSE : 
5 0 0535 STATUS = LIST_KFE_ENTRY (.KFE); 3 
: 341 b238 3 
: ri} 5 3 
; 34 538 RETURN .STATUS; 3 
3 (344 539 1 END; ! routine INS_LIST : 


0000 00000 INS_LIST: 


WORD Save nothin 
L KFE ° 


06 =A D3 TST 
0 BNEQ I$ 
0000v CF FB t CALLS #0, LIST_KFE_ENTRIES 
04 aC DD D 1$: PUSHL  KFE 
0000v CF 01 FB Ht! CALLS #1, LIST_KFE_ENTRY 
04 0001 RET 
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: 347 0541 1 ROUTINE LIST_KFE_ENTRIES = 

eB Beil 
: 350 gece 1 i | 
; 351 0545 1 !--- 

3 26 Bee8 BEGIN 

; 54 0548 KFD : REF BBLOCK, 
aoe 0549 KFE : REF BBLOCK; | 
; 356 0550 
s Sor 0551 BIND 

: 28 0226 KFPB = EXESGL_KNOWN_FILES : REF BBLOCK; 

; 60 0554 IF .KFPB EQL 0 

3 636) 0555 THEN 

3 o¢ B228 BEGIN 

; 36 055 RETURN INS$_NOLIST; 

3: 364 0558 END; 

; 365 0559 

; 366 0560 IF .KFPB CKFPBSL_KFDLST] EQL 0 

; 367 0561 THEN 

; 368 3206 BEGIN | 
; 369 056 RETURN INSS$_EMPTYLST; 

; 370 0564 § END; 

3; Sri 0565 

; 372 0566 2 KFD = .KFPB CKFPBSL_KFDLSTJ; 

s 375 0567 

3; 374 0568 ! ; | 
3 373 0569 ! Traverse the List of KFDs and format each KFD and all its KFEs. 

: 376 0570 2! The KFD is the header block which contains the Device, directory and 
; AG b255 § } file type which several Known File Entries (KFE) share in common. 
: 379 0573 2 WHILE .KFD NEQ 0 DO | 
: $80 0574 BEGIN 
; 381 0575 FORMAT_KFD (.KFD); 
; 382 0576 KFE = JKFD CKFDSL_KFELISTI; 
; 383 0577 3 

: 384 0578 3! | 
; 385 0579 3 ! Format each KFE in the KFD's ordered List of KFEs 

; 386 0580 ; ! | 
; 387 0581 WHILE .KFE NEQ 0 DO 
3 $68 p26 4 BEGIN 
: 389 0583 4 FORMAT_KFE (.KFE); 

; soy bene 4 KFE = .KFE CKFESL_KFELINK); ; . 

; 4 p25? 3 END; ! WHILE traversing KFD's ordered KFE List 

; 398 0587 ; KFD = .KFD CKFDSL_LINK]; =! Next KFD 

3 394 0588 END; ! WHILE traversing KFD List 
3 $0: 0589 § 
: 396 0590 RETURN TRUE; 

: 397 0591 1 END; 
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50 000000006 
5G 000000006 
50 000000006 
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INS_LIST 


; 400 0593 1 ROUTINE LIST_KFE_ENTRY (KFE) = 
: 401 94 1 lee 

; 40 we 3 3 

; 40 a8 1! 

; 4046 597 1 !<<- 

; 405 Bees BEGIN 

3 rey 599 MAP 

; 40 0600 KFE : REF BBLOCK; 

; 408 0601 

; 409 060 FORMAT_KFD (.KFE CKFESL_KFDJ); 
; 4610 060 

; 411 604 2 FORMAT_KFE (.KFE); 

3 tig 605 

; «(41 0606 RETURN TRUE; 

: 414 0607 END; 


0004 00000 LIST_KFE_ENTRY: 
WORD 


Save R2 

52 04 AC 00 00002 KFE, R2 

OC A2 DD 00006 PUSHL 12(R2) 
0000v CF 9} FB 00009 CALLS #1, FORMAT_KFD 

2 OD BOnOF PUSHL R2 

0000v CF 01 FB 0001 CALLS #1, FORMAT_KFE 

50 01 00 00015 MOVL #1, RO 

04 00018 RET 


; Routine Size: 25 bytes, Routine Base: S$CODE$ + 0159 


: 415 0608 1 
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NJ, 
exfps ps6 pevetnd -KFDCKFD ' Calculate devnam string Length 


' 

i Call GETDVI to convert the device name into the volume's logical name 

gtr tas. This achieves a less confusing/intimidating device name display 
€ 

' 


! for the users. 
iTMLSt i]s = NEW D ' Load output buffer address 
= DEYRAN bScCDSCSW_LENGTH); i Shove Length into descriptor | 
sys gerbviu (0,0,DEQNAM_DSC,ITMLST,0,0,0,0);! C 
' 
i Build the output descriptor for formatting below. If there was a 


ee 
aon 
SSSSES 
PPA AAA IAIN 


SPREE 
NNNNOOO 
-—oo 


onvert device name format 


; 417 1 ROUTINE FORMAT_KFD (KFD) = 
3 ret 1 1 !ee¢ 

; «(41 1, =e 

: 420 1 1: 
: 621 1 1 leo 

3; 6 é 14 2 BEGIN 
; & 15 LITERAL 
> 426 1 INS_C_KFDPADLEN = 40; | 
: 425 1 
; 4 § 3 LOCAL | 
3; 6 1 DEVNAM : BBLOCK K O63, 
3; 6 § 0 NEW DEV : BaLOCK 6 
3; 4 1 DEVRAM_DSC LOCK toscsc S BLN, 

: 4 ¢ DDT_DSC : SBBLOCK DsCSC_s_ BLA 
> 431 ITMCST : eyes! R (4,LONG 

; 4 g 4 PRESE ‘on Ss = Byis_ LOGVOLNAM * 16 + 64, 

; 4 5 

3; 6 06 $ PAD; 

; 435 06 

3; 4 0628 MAP 

: : 7 pe , KFD : REF BBLOCK; 

; 439 0631 TERMINATE_LINE (); ! Blank Line 

: 4640 06 ¢ 

3; «441 06 IF .INSSGL_CTLMSK CINSSV_STRUCTURE) 

i RE gM 

3 444 06 $ i For a /STRUCTURE Listing, simply Si apley the device name in its | 
> 445 06 i raw tore as it was stored in the KFD. 

> 666 $e 8 i 

: «4447 9 BEGIN 

; 46468 064 DEVNAM_DSC CDSCSW_LENGTH] = .KFD CKFDS$B_DEVLEN]; 

3; 469 064 DEVNAM_ DSC CLDSCSA_POINTER] = KFD CKFDST “DDT STRJ; 

; 650 064 END ‘ 

3 rit Bee ELSE | ! mot /STRUCTURE Listing 

; 45 064 i Build a device name by extracting it from the DDTSTR field of the KFD 

: 654 064 i and prefixing it with an underscore. The underscore tells SGETDVI that 

3 $32 bee this is a device name and not to bother trying to translate the string. 

; 45 064 BEGIN 

; 458 06 DEVNAM psccpsesa Pornten? = ing: ! Load addr of dpenee ptring 

; 459 06 CHSUCHAR CHC? t EVNAR DSCCDSC$A _POINTER]): | Device. not a ogical n 

; 4660 CHSMOVE ( .KFDT KFDCKFOST opera -DEVNAM_DSC pecsa SPOINTERI#1); 
; DEVNAM_DSCCDS DEVLEN Nii +1; 


PEAR OOD NOUS WO ODNOUE WIN O 
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1e-8ep-1986 12:35:98 EINSTAL SRESINGLIST aSes1 are 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


002C0040 00 ‘ P.ABG: .LONG 683648 : 
Osef -BYTE C 


00000000" - LONG 


; 476 : volume logical name defined, then go ahead and use it. If not, then | : 
; $f? we must use the original device name. | : 
: 47 iF .DEVNAM_DSCCDSC$W_LENGTH] EQL 0 : 
; 4? THEN ; 
: 4? i BEGIN | 
; 4 4 DEVNAM_DSC PDSCSW_LENGTH) = .KFD KFD D$B_DEV WEEN: : 
; 481 4 DEVNAM_DSC CDSCSA_POINTER] = KFD CKFDST_DDTSTRI; : 
; 4 4 END ; 
; 48 3 E ; 
: 4 o BEGIN ; 
> 485 4 CHSWCHAR(':* NEW_DEV+, "ge DSCCDOSC$W_LENGTH]); ! Add and count colon ‘ 
; 4 4 DEVNAM_DSCCOSCS$W~LENGTH BEVNAM DSCCDSCSW_LENGTHI + : 
; 48 4 DEVNAM_DSCCDSCSA_POINTER] = NEW NOED: | Finish descriptor : 
; 488 END; : 
; 690 ! ‘ 
3 $3) ! Now, format the output Line. ‘ 
: 49 DDT_DSCCDSCS$W_LENGTH] = .KFDCKFD$B_DDTSTRLEN] - .KFDCKFDSB DEVLENI: : 
; 49% DDT-DSCCDSCSA-POINTER] = KFDCKFD$T-DDTSTR) + .KFDCKFD$B_DEVLE : 
: 495 FORMAT_LINE (FAOCTL_DDT, DEVNAM_DSC, DDT_DSC); ! chal the Keb output ; 
; 497 IF_.INSSGL_CTLMSK CINSSV_STRUCTURE] ; 
; 498 THEN : 
3 344 BEGIN ; 
; 201 Pad the buffer out to INS_C_KFDPADLEN characters : 
; 308 PAD = INS ¢ _KFDPADLEN = (INSSC_FAOBUFLEN = .INSSFAOBUFDESC CDSC$W_LENGTH)); : 
; 505 THEN : 
; 506 4 BEGIN : 
s for 4 onenes LINE (); ! Print DDT string on first Line : 
; 508 0700 4 = INS~C_KFDPADLEN; : 
moe ‘ : 
; 511 0708 INSSFAOBUFDESC CDSC$W_LENGTH] = .INSSFAOBUFDESC CDSCSW_LENGTH] - .PAD; !Length is size left in buffer : 
3 218 070% INSSFAOBUFDESC CDSCSA_POINTER] = .INSSFAOBUFDESC CDSCS SK-P POINTER] + .PAD; : 
 3tg 0706 FORMAT. TERMINATE LINE (FAOCTL KF DADR. : 
3; 515 970 KFDSQ_SIZE], .KFO"CKFDSW_ RERCNT): ! Print KFD info : 
at | in bey 
; ai8 O16 TERMINATE_LINE (); ! Blank Line if /STRUCTURE, else prints DDT string | : 
3 320 O71g @ RETURN TRUE; 
; 1 071 END; : 
Sexit 
é 
é 
| 


_—— 
> Se 
sso 


an 


INS_LIST 
.PSECT 
O1FC 00000 FORMAT_KFD: 
WORD 
58 0000V CE 9E 20002 HOVAB 
ee cE 9F 00 MOV 
6— 0000" ‘CF 1 0 MOVC 
68 00 FB 0001 CALLS 
é 04 Ag 00 0001 MOVL 
06 000000006 99 03 £1 00019 BBC 
0E Ab 9A 00021 MOVZBL 
3F 11 00025 BRB 
1c OA $4 AE 96 00087 18 MOVAB 
5 1¢ AE DO 000¢C MOVL 
0 SF BF 90 00030 MOVE 
7 0E Ab 9A 000 MOVZBL 
01 Ad 1 OA 57 28 00038 MOVC 
18 AE 5 01 Al 00036 ADDW 
04 AE 20. AE 9E 0004 MOVAB 
08 AE 18 AE 9E 00048 MOVAB 
7E 7C 0004D CLRQ 
7E 7C QO04F CLRO 
10 AE 9F 00051 PUSHAB 
2C AE OF 00054 PUSHAB 
7E 7¢ 00057 CLRQ 
000000006 00 08 FB 00059 CALLS 
50 18 AE 3C 00060 MOVZWL 
0B 12 00064 BNEQ 
18 AE 57 BO 00066 28 MOV 
1Cc AE 11 A6 YE Q006A MOVAB 
D 11 O006F BRB 
20 AE4O A 90 00071 38 MOVE 
18 AE B6 00076 INCW 
1C AE 20 AE 9E 00079 MOVAB 
50 10 AG 9A O007E 4s MOVZBL 
10 AE 50 57 AS 00082 SUBW 
16 AE 11 A746 9E 0008 MOVAB 
10 AE 9F 0008D PUSHAB 
IC, AE 9F 00090 PUSHAB 
0000" CF 9F 0009 PUSHAB 
OO00V CF G3 FB 00097 CALLS 
2F 000000006 9 ; 1 9009¢ BBC 
0000" CF 3¢ O00A4 MOVZWL 
5 FF29. C2 9E OOOA9 MOVAB 
66 14 OO0AE BGTR 
68 0 FB 00089 CALLS 
52 D0 0008 MOVE 
000' CF 2 AZ 00086 S$: SUB 
000" CF 0088 ADDL 
E Oc a6 $C O00C MOVZWL 
7E 08 a6 3C 000C4 MOVZWL 
56 pd 000C8 PUSHL 
0000" CF 9F OOOCA PUSHAB 
Oo00V CF 64 FB O00CE CALLS 
68 0 FB 00003 6% CALLS 
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G 

MIN 
EVNAM_DSC+4 
C+4, RO 

7 

) 

E 

I 
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#8. SYSSGETDVIW 
EVNAM DSC, RO 


$ 
R7, DEVNAM 
17(R6), DEUNAM. DSC +4 


#58, NEW_DEVCROJ 
VNAM_DSC 


Teche) RO. DEVNAM_DSC+4 


{(—B2Bwmoo -]-2—-Zo2aF 
m 


g(R6) 
7(R 
DT 
EV 
AOCTL 
3. ORMAT_LINE 

NSSGL CILASK +1. 6$ 
né$ $F A08 
sg loer 
23 TERMINATE _LINE 
#46, PAD 


PAD. INSSFAOBUF DESC 
PAD, INSSFAOBUFDESC+4 
thee P) 


1 
8(R6), =(SP) 


FAOCTL_KFD 
#4, FORMAT. TERMINATE aLINE 
#0, TERMINATE LINE 


Pee Se Se Se Se Se Se Se Ge Se Se Se Ge Se Bs Ge Ge Se Ss Se Se Se Ge Se Se Se Be Ss Be Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Fe Se Se Se Se Ge Se 


Vourd30 INS LIST 1-00-1984 93588538 FINS TAL SReSingLigt oases 
50 01 0 00008 MOVL #1, RO 


RET 
; Routine Size: 218 bytes, Routine Base: S$CODE$ + 0172 
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END 


ELSE 
CHSMOVE (FIB_S_FID, KFE CKFESW_FIDJ, FID); 


If we obtained the file id field then the file version can be obtained via 
a call to Q10. 


if NOT CHSFAIL (CHSFIND_NOT_CH (FIB_S_FID, FID, 0)) ! See if it is all zeros | 


se a te 
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L 

CHANNEL : WORD 

DEVNAM_ DESC : ae COSC$C_S_BLNI, 

I0SB :~BBLOCK ; 
CHSMOVE (FIB_S_FID, FID, FIB CFIBSW_FID] ); 


i make descriptor of device name string 
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INSLIST 1-52 -1984 AX-11 Bliss-32 v4.0-742 Page 22 I 
INS_LIST 14- gep-1984 93; 33: $3 INSTAL. SRC INSLIS -832;1 . (85 | V 
: 1 77 PAD, ! Number of blanks to pad after filename ; 
; ‘ 77 Q10 STATUS, | ; 
3 774 A : 
; 775 WCB_SHRCNT, | : 
3 5 £re m | : 
: "8 WCB”: REF BBLOCK; | : 
: 77 KFD = .KFE CKFESL_KFD); : 
; 589 780 “i : 
; $90 781 ! . 
: 4 f ; Print the File name ‘ 
i 393 784 ¢ FORMAT LINE (FAOCTL_FILNAM, KFE CKFESB_FILNAMLEND) ; | : 
: 595 07 CHSFILL (O, FIB_S_FID, FID); ! zero it out : 
: : 07 ; uce sb; | ; 
; 598 0789 IF .KFE CKFESV_OPEN) ! If installed /OPEN, get info from window control block | : 
; 599 0790 THEN . ‘ 
; 600 0791 BEGIN : 
; 601 3736 LOCAL ° 
; 60 079 FCB : REF BBLOCK; ‘ 
3 60 0794 : 
: 604 0795 WCB = .KFE CKFESL_wCBI; | : 
; 605 0796 IF .WCB NEQ 0 . 
> 606 0797 THEN : 
> 607 0798 BEGIN | : 
3; 608 0799 WCB_SIZ = .wCB CWCBSW_SIZE]; : 
; 60 0800 WCB-SHRCNT = .WCB CWCBSW_REFCNT) - .KFE CKFESW_GBLSECCNT] - 1; ! Amount of file sharing : 
: 610 0801 FCB-= .WCB CWCBSL_FCBJ; ~ : 
: 0802 IF .FCB LSS 0 | 
3 080 THE ¢ 
3 0804 BEGIN ‘ 
: 0805 CHSMOVE (FIB_S_FID, FCB CFCBSW_FIDJ, FID) : 
; 0806 END; : 
3 0808 3 
3 0809 
; 0810 
3 
; 4 
3 0 
3 0 
5 0 
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INSLIST 1b-se “1984 01:54: AX-11 Bliss-32 V4.0-742 Page 23 
Woe h80 INS_LIST 12-808- 1382 93:32:83 INSTAL. SRCJINSLIST.B32;1 . (3 | 
| 
; 638 ! 
: 639 3 DEVNAM_DESC = .KFD CKFD$B BEVLEN):; 
; ot DEVNAM_DESC COSCSA_POINTER] = KFD CKFDST_DDTSTRI; | 
: 64 ' 
; ec§ 5 ¢ Assign a channel so Q10 can be called to get file version | 
3 645 § § STATUS = SASSIGN ( DEVNAM = DEVNAM_DESC, CHAN = CHANNEL); 
; 646 4 Jf NOT STATUS THEN RETURN .STATUS: 
; a" 
; 648 P 08 5 QIO_STATUS = $Q10W (FUNC = IOS$_ACCESS, CHAN = .CHANNEL ! Get the file version 
; 649 dees 10SB = 10SB, P1~= FIB_OESC, PS = ATRCTLBLK); 
3 $2) 9k: EXECUTE (SDASSGN (CHAN = .CHANNEL) ); ! Deassign the channel 
: §2¢ 0864 IF NOT .10SB 
: 654 845 THEN 
3; 655 0846 4 BEGIN 
3 656 B47 4 ' 
: 657 0848 4 ! Build a descriptor of the file name which is now in 
; 658 0849 4 ! the output buffer and indicate that the file was not found 
; 659 0850 4 i 
; 660 0851 4 LITERAL 
3 661 0852 4 DECODED_MSGBUF_LEN = 256, 
: 66 0853 4 ERRFILNAM_BUFLEN = 31; 
; 66 0854 4 AL 
3 664 0855 4 DECODED_MSGDSC : BBLOCK [COSC$C_S_BLNI, 
3 665 0856 4 DECODED-MSGBUF : BBLOCK CDECODED-MSGBUF_LENJ, 
3; 666 0857 4 RRFILNAM_DSC : BBLOCK fp C$C_S_ BLN 
; 667 0858 4 ERRFILNAM-BUF : BBLOCK CERRFICNAM_BUFLEND; 
: 669 0860 4 ERRFILNAM_DSC CDSCS$A_POINTER] = ERRFILNAM BUF; 
; 670 0861 4 ERRF ILNAM NS$C_FAOBUFLEN = .INSSFAOBUFDESC CDSC$W_LENGTH); 
3; 671 FR 4 IF .ERRFICNAM_DSC COSC$W_LENGTH] GTR ERRFILN UFLEN 
3 O76 oes? $ THEN ERRFILNAR_DSC COSC$Q_LENGTH] = ERRFILNAM_BUFLEN; 
: 674 0865 4 CHSMOVE (.ERRFILNAM_DSC COSC$W_LENGTH], .INSSFAOOUTBUF , 
: 675 0866 4 ERRF ILNAM_BOF ); 
; 676 0867 4 
: 677 0868 4 DECODED_MSGDSC = DECODED_MSGBUF _LEN; 
3; 678 0869 4 DECODED“MSGDSC COSCSA_POINTER] = DECODED _MSGBUF; 
; E44 9870 ‘ CHSFILL~(0, DECODED_MSGBUF_LEN, DECODED_ASGBUF); 
: 681 Pp O87 4 SGETMSG ( MSGID = INS$_NOVER 
: é P 0873 4 MSGLEN = DECODED_MSGOSC 
; 68 0874 4 BUFADR = DECODED-MSGDSCS; 
3; 684 875 4 
3; 685 876 & TERMINATE _LINE (); 
: 686 37 ‘ FORMAT_TERMINATE_LINE ( DECODED_MSGDSC, ERRFILNAM_DSC); 
: 688 578 4 DECODED_MSGDSC = DECODED_MSGBUF_LEN; 
3; 689 880 4 DECODED“MSGDSC CDSCSA_POINTER) = DECODED _MSGBUF; 
: 690 1 4 CHSFILL™(0, DECODED_MSGBUF_LEN, DECODED_ASGBUF); | 
; 69 Pp 5 4 SGETMSG ( MSGID = .J0SB 
: 69 P 0884 4 MSGLEN = DECODEO_MSGDSC 
: 69% 5 4 BUFADR = DECODED-MSGDSCS; | 
| 
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4 
‘ s eer ( DECODED_MSGDSC); 
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BEGIN 
yl cates (FAOCTL_VERSION, .FILVER ); ! Format the version into output buffer 
END; 


PAD = INS _C_KFEPADLEN ~ (INSSC_FAOBUFLEN ~ . INSSFAOBUFDESC CDSCSW_LENGTH]); 


Ssese 


| 
| 
: 
! Pad the buffer out to INS_C_KFEPADLEN characters 


FLAGS = .KFE CKFESW_FLAGS); 


i Search the table, if the mask is set in the composite control 
flags longword, then call FAOL with the corresponding descriptor 


INCR I FROM 0 TO (2 * INS_C_CTLFLGSTR -1) BY 2 DO 
BEGIN 


o CSOCCCOCCOCOCCOCOCOOCO 
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7 
8 
709 IF .PA 
710 THEN 
711 BEGIN 
rie TERMINATE_LINE (); 
71 PAD = INS~C_KFEPADLEN; 
ri END; 
716 INS$F AOBUF DESC Cosc$w_LENGTH] = .INSSFAOBUFDESC CDSCS$W_LENGTH] - .PAD; !Length is size left in buffer 
a4 INSSFAOBUF DESC COSCSA-POINTER] = .INSSFAOBUFDESC CDSCSA_POINTER] + .PAD; 
719 
720 ! Decode KFE flags 
721 1 i 
7 g 1 BEGIN 
454 i BUF LEN 
S$ 1 BUFPTR; 
726 091 
727 091 BUFLEN = .INSSFAOBUFDESC COSC$W_LENGTH); 
728 091 BUFPTR = .INSS$FAOBUFDESC COSCSA-POINTERI; 
486 
re 
535 
34 


on 
° 
oo 


ANN 


IND 
MASK = CTLFLG_ARRAY C.13 
CSTRNG = CTLFCG ARRAY (.1) + 4, 
PADLEN = .CSTRNG : BYTE; 


IF (.MASK AND .FLAGS) NEQ 0 
THEN 
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BEGIN 
FORMAT_LINE (FAOCTL_FLAGS, .CSTRNG); 
38 BUFLEN™= . INSSFAOBUFDESC foScéu LENGTH): 
BUFPTR = .INSSFAOBUFDESC COSCSA~POINTER); 
40 END 
41 ELSE 
942 BEGIN 
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INSLIST 18 Sep-1984 01:54: AX=11 Bliss-32 V4.0-742 Page 25 ’ 
V04= INS_LIST 1 = 30-1984 9:38:98 Ns tac ’SaeSinsu igi cases ve V 
: 758 943 INSSEAOBUFDESC FDSCSW_LENGTH] =. INSSEAOBUFDESC CDSCSW LENGTH] = . PADLEN; : 
i 033 34h 5 INSSFAOBUFDESC CDSCSAZPOINTER =" . INSSFAOBUF DESC BStske POINTER] + .PADLEN; : 
; 03 34 END; : 
: $85 248 INSSFAOBUFDESC FDSC$W_LENGTH] = .BUFLEN: ; 
; 758 94 INSSFAOBUFDESC CDSCSA-POINTER] = .BUFPTR; : 
: 759 950 END; : 
me BE : 
; te $e ! Print extra info for a /FULL or /STRUCTURE Listing : 
> 7264 985 5 ir INSSGL_CTLMSK CINSS$V_FULLJ ; 
; 765 boes THEN ; 
> 766 95 BEGIN : 
; eer 8328 TERMINATE_LINE (); ! Print file name or decoded flags : 
: 269 0960 IF .INSSGL_CTLMSK CINS$SV_STRUCTURE] : 
: 771 096¢ FORMAT_TERMINATE LINE (FAOCTL KEEADR. = KEE ; 
; oF 0963 E CKFESW_SIZE], .KFE CKFESB_HSHIDX)); : 
: a4) Boe? IF .KFE satan heapeienes ! Mark as compatibility mode image . 
: 176 0967 Eger ORMAT-TERMINATE LINE (FAOCTL_COMPAT TYP, .KFE CKFESW_AMECODI) : 
: 778 0969 FORMAT_TERMINATE_LINE (FAOCTL_USECNT, .KFE CKFESL_USECNT)); 
; 780 0971 IF .KFE CKFESV_OPEN) ! If /OPEN ; 
: 78 097 IF .KFE CKFESV_COMPATMOD] : 
; 28 0974 3 3 
: 784 0975 ; FORMAT_TERMINATE_LINE (FAOCTL_CMODCURR, .WCB_SHRCNT) ; 
; 0977 FORMAT_TERMINATE LINE (FAQCTL  SHRUSECNT . : 
: 287 0978 3 WCB_SHRCAT, .KFE CKFESW_SHRCNT) - 1); ; 
; 789 0980 IF .KFE CKFESV_SHARED] ! If /SHARED 
; 231 0982 5 FORMAT_TERMINATE_LINE (FAOCTL_GBLCNT, .KFE CKFESW_GBLSECCNT)); : 
: 79 0984 4 IF (.INSSGL_CTLMSK CINSSV_STRUCTURE) AND .WCB NEQ 0) ! If installed /OPEN, print info on window ; 
: 795 098 ; FORMAT_TERMINATE_LINE (FAOCTL_WINDOW, .WCB, .WCB_SIZ); 
: 797 0988 4 IF _(.INSSGL_CTLMSK CINSSV_STRUCTURE] AND .KFE CKFESV_HDRRESJ) ! If header resident 
; 798 0989 3 ‘THEN 
: 799 0990 4 BEGIN 
: 800 0991 4 BIND 
; B01 099¢ 4 KFRH = .KFE CKFESL_IMGHDR] - KFRHSC_LENGTH : BBLOCK; 
: B03 994 4 FORMAT TERMINATE LINE” (FAOCTL HEADER, 
3 804 995 4 E CKFESL_IAGHDR], .KFRH CKFESW_SIZE)); 
; 805 99 END; 
: BO? 998 IF .KFE CKFESV_PROCPRIV] 
; 808 99 THEN 

| 


71986 12:35:98 LINSTALSRESINSLIST.08871 


1990 PRINT_PRIVS (KFE CKFESQ_PROCPRIV]); 

+ ¢ END; ! Full Listing 

130¢ TERMINATE_LINE (); ! If /FULL prints blank Line, else prints file name 
1386 Se TRUE; 


-PSECT S$PLITS,NOWRT,NOEXE,2 


05 00258 P.ABH: .BYTE 5 
20 6€ 65 70 4F 00259 ASCII \Open \ 
04 00 ef P.ABI: .BYTE 
20 72 64 48 0025F ASCII \Hdr \ 
9 00263 P.ABJ: .BYTE 
20 72 61 68 53 00264 ASCII \Shar \ 
9 00269 P.ABK: .BYTE 4 
20 76 72 50 OQ026A eASCII \Prv \ 
9 O26E P.ABL: .BYTE 
20 74 6F 72 50 O0026F eASCII \Prot \ 
06 00274 P.ABM: .BYTE 
20 6C 62 68 6E 4C 00275 eASCII \Lnkbl \ 
09 00278 P.ABN: .BYTE 
20 65 64 6F 6D 43 O027C ASCII \Cmode \ 
04 00 Hf P.ABO: .BYTE 
20 6D 68 53 88 8 ASCII \Shm \ 
05 00287 P.ABP: .BYTE 5 
20 74 6€ 63 41 00288 ASCII \Acnt \ 
07 8 8) P.ABQ: .BYTE 7 
20 67 72 75 70 6F 4E 00 33 eASCII \Nopurg \ 
04 st P.ABR: .BYTE 4 
20 74 72 $7 00296 eASCII \Wrt \ 
93 0029A P.ABS BYTE 
79 6C 6E 6F 58 00298 ASCII \Xonly\ 


-PSECT SOWNS,NOEXE,2 


QO00C FILVER: .BLKB 4 
0007 0002 00010 ATRCTLBLK: . 
00000000' 90014 “ADDRESS erat veR 
018 “BLKB. 4 
9001¢ FIB: .BLKB 12 
000A 00028 FIB_DESC: sea 
0 # 0002A “BYTE Of23 
990000 * 0002C “ADDRESS 4B 
000008 00030 CTLFLG -ARRAY: 
0 af ' ots - ADDRESS P.ABH 
§ ' 8 C “ADDRESS P.ABI 
0 0 9040 *L 
0000" 00044 “ADDRESS P.ABJ 
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-EXTRN SYSSDASSGN, SYSSGETMSG 


-PSECT S$CODES,NOWRT,2 


-EXTRN SYSS$ASSIGN, SYS$Q10W 
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INSLIST -Sep-1984 4:25 AX-11 Bliss-32 V4.0-74 
Mites tts INS_LIST 14-Sep P= 1986 9}: 3¢; 8 INSTAL. SRCVINSLIST. B32;1 
F4 OAD 11. Ad 9 073 MOVAB 17(R9), DEVNAM_DESC+4 
7E 7C€ 0007 CLRQ  =(SP) 
08 AE 3F Or, PUSHAB CHANNEL 
FO AD 9F 0007D PUSHAB DEVNAM DESC 
000000006 90 04 re 0 9 CALLS 4&4, SYSSASSIGN 
0 €9 000 BLBC STATUS, 5$ 
0000" cr D4 0 A CLRL ~—- FALVER 
—E D4 Br CLRL Os =C'S 
0000° CF 9 09 PUSHAB ATRCTLBLK 
E 7C 00094 CLRQ = =(SP) 
7E 04 0096 CLRL = = (SP) 
0000" cr oF 0009 PUSHAB FIB_DESC 
E 7C 0009C CLRQ = = (SP) 
£8 AD 9F 0009E PUSHAB I B 
3 pp O0A1 PUSHL 
7E 28 AE 3C OOOA3 MOVZWL CHANNEL -(SP) 
7E D4 OOOA7 CLRL <-(SP 
000000006 00 OC FB O00A9 CALLS re SYS$Q10W 
7E 6E 3C 90080 MOVZWL CHANNEL, -(SP) 
000000006 00 01 FB 000B3 CALLS #1, SYSSDASSGN 
01 50 £8 OOOBA 5$: BLBS § STATUS, 6$ 
04 000BD RET 
03 &8 AD E9 OOOBE 6$: BLBC ~=«:10SB, 7$ 
0092 31 000c2 BRW 9$ 
28 AE 04 AE 9E 000CS 7$: MOVAB ERRFILNAM_BUF, ERRFILNAM_DSC+4 
24 =AE 0000" CF 3C OOOCA MOVZWL INSSF AOBUFDESC, ERRFILNA AR_DSC 
24 AE OOOOOOFF 8&F 24 AE C3 00000 SUBL3 ERR #639. , ERRFTLNAM_DSC 
1F 24 AE Bi OOODA CMP RRF LNA bee: #31 
04 1B OOODE BLEQU 
24 «AE 1F BO OO0EO MOVW a3 ERRF ILNAM_DSC 
04 AE 0000" oF 24 AE 28 OOOE4 8$: MOVC3 ERREIL NAM DSC, @INS$FAOOUTBUF , 
EO AD 0100 8F 3C OODEC MOVZWL #256, DECODED D_MSGDSC 
E4 AD 2C AE 9E 000F2 MOVAB DECOBED MSGBUF, DECODED _MSGDSC+4 
0100 =s« BF 00 6E 00 2C OO0F7 MOVC #0, CEpy” #0, #256 , DECODED_MSGBUF 
2c AE OOOFE 
7E OF 7D 00100 mova -(SP) 
EO AD 9F 00105 PUSHAB 45 ben “MSGDSC 
EO AD 9F 00106 PUSHAB DEC ODED “MSGDSC 
000000006 8F DD 90109 PUSHL aN NS$_NOVER 
000000006 00 05 FB 0010F CALLS #5, SYS$GETMSG 
0000V CF 0G FB 00116 CALLS #0. TERMINATE _LINE 
24 AE OF 0011B PUSHAB ERRFILNAM DSC” 
E0 AD oF OOrTE PUSHAB D CODED _MSGDSC 
0000v CF 0 FB 001 ALLS PERRAT TERMINATE _LINE 
EO AD 0100 =F 3¢ 00126 MOV ZWL 7556, OR ECOBED 
E46 AD 2C AE 9E 0012C MOVAB DECOBED ASGBUF" SOE CODED MSGDSC+4 
0100 = 8F 00 6E . 00 2¢ 91 1 movcS #0, (SPT, #0, #256, DECODED_MSGBUF 
7E OF 7D 0013A ova 15, -(SP) 
EO AD 9F 001 PUSHAB DECODED_MSGDSC 
EO AD OF 0014 PUSHAB DECODED“MSGDSC 
E8 AD DD 0014 PUSHL 10SB 
000000006 00 05 FB 00146 CALLS #5, SYS$GETMSG 
EO AD 9F 00140 PUSHAB DECODED MSGDSC 
0000v CF 01 FB 0130 CALLS #1, FORMAT LINE 
0D 11 0015 BRB o$ 
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voL=000 INS_LIST 16-Sep-1 Bc 93:38:88 INSTAL. SRCJINSLIST.B32;1 ’ 3 

9000" CE pD 00157 9$: -PUSHL_ FILVER : 0892. 

000" CF 9 00138 PUSHAB FAOCTL_VERSION : ; 

0000v CF 2 FB 0015F ALLS #2, FORMAT LINE ; : 

: 0009" CF 3¢ 164 108:  MOVZWL INSSE AOBUF DESC. PAD ; 0899 : 

FFI Cg GE 00169 MOVAB =235(R2), PAD : : 

G8 1% 0016 GTR 6-118 ; 0900 : 

o000v EF 00 FB 001 CALLS #0, TERMINATE_LINE : 0903 | 

2 14 DO 0017 ov. #26, P : 0904 : 

0000' CF 22 Ag OO178 118: — SUBWZ PAD, INSSFAQBUFDESC ; 0907 : 

0000" CF 60 00170 ADDL2 PAD, INSSFAOBUFDESC+4 ; 0908 : 

5 9000° CF 3C 0018¢ MOVZ2WL INS$FAOBUFDESC, BUFLEN ; 0918 : 

i 0000" cf 90 0018 OVL  INS$FAOBUFDESC+4, BUFPTR : 0919 ; 

9 A 3C 0018C MOVZWL (R10), FLAGS ; 0921 ‘ 

D4 0018F CLRLO : 0934 ; 

53 Q000'CF42 00 00191 128:  MOVL CTLFLG_ARRAY+4(1], R3 ; 0932 : 

59 0000'CF42 D3 00197 BITL § CILFLG-ARRAYCIJ, FLAGS > 0934 : 

1A 13 0019D BEQL =-13$ : : 

Q000'CF42 DD OOI9F PUSHL CTLFLG_ARRAY+4(1J ; 0937 : 

0000" CF 9F O01A4 PUSHAB FAOCTL-FLAGS : ; 

O000vV CF 02 FB 001A8 CALLS #2, FORMAT_LINE ‘ e 

55 0000' CF 3C OO1AD MOVZWL INSSFAOBUFBESC, BUFLEN ; 0938 : 

54 0000" CF BO 00182 OVL  INSS$FAOBUFDESC+4, BUFPTR ; 0939 : 

19 11 OoiB RB 14$ : 0934 : 

50 63 9A 001B9 13$:  MOVZBL (R3), RO ; 0943 ; 

0000' CF 50 A2 001BC SUBW2 RO, INSSFAOBUFDESC ; : 

50 63 9A 001C1 MOVZBL (R35), R 3; 0944 ; 

0000" CF 50 CO 001C4 ADDL2 RO, INSSFAOBUFDESC+4 ; : 

02 17 F1 001C9 148: ACBL #28, #2, $ ; 0927 ; 

0000' CF 55 BO OO1CF MOVW  BUFLEN, INSSFAOBUFDESC ; 0948 : 

0000' CF 54 D0 00104 MOVL § BUFPTR, INSSFAOBUFDESC+4 ; 0949 3 

03 000000006 00 02 £0 OdiD9 BBS #2, INSSGL_CTLMSK+1, 15$ ; 0955 : 

B? 31 OO1E1 BRW 4$ ; : 

0000v CF 00 FB OO1E4 15$: CALLS #0, TERMINATE LINE ; 0958 ; 

13 000000006 60 03 £1 OO1E9 BBC #3, INSSGL_CTCMSK+1, 16$ ; 0960 : 

7E 0B AB 9A OO1F1 MOVZBL 11(R8), (SP) ; 0963 ; 

7E 08 AB 3C 001F5 MOVZWL 8(RB), =(SP) ; : 

58 DD 001F9 PUSHL R ; 0962 3 

0000' CF 9F OO1FB PUSHAB FAOCTL_KFEADR ; : 

0000v CF 4 Beebe CALLS #4, FORMAT_TERMINATE_LINE ; : 

6A 95 00204 168: STB = (R10) ; 0965 : 

OA 18 00206 GEQ =‘17$ ; ; 

7E 2a, AB 3C 00208 MOVZWL 42(R8), =(SP) ; 0967 ; 

0000" CF F oc PUSHAB FAOCTL_COMPAT_TYP 3 : 

67 11 0021 BRB 18s : : 

14 AB DD 00212 17%:  PUSHL 20 RB) : 0969 : 

0000' CF 9F 0021 PUSHAB FAOCTL_USECNT ; : 

0000v CF Ge FB O0g19 188: CALLS 4g, FORMAT_TERMINATE_LINE : : 

22 6A 03 EI Odet BBC #3. (R10), ~208 : 0971 : 

6A 95 00 TsTB. = (R10) : 0975 { 

QD 18 o0¢e4 GEQ =-:19$ 3 : 

pd 00206 PUSHL_ WCB_SHRCNT ; ; 

0000" CF 9F 00 PUSHAB FAOCTL CMODCURR ; ; 

0000v CF Ge FB Oger CALLS fit FORMAT_TERMINATE_LINE 

7E 34 AB 3C 00233 198: ROVZUL oot). -(SP) : 0978 i 

$E 7 00¢87 DECL (SP) ; : 

DD 00239 PUSHL  WCB_SHRCNT : 
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676 bytes, 


; Routine Size: 


840 PRVS_TO_PRINT = F 


ALSE; 
FORMAT_CINE ( FAOCTL_PRIVHD ); 


record status of buffer 
init buffer with header info and indentation 


MELE 5 | PLACE Joe) <0,8> NEQ 0 DO ! Traverse down the table 
PLACE_HLDR = .PLACE_HLDR + 1; ! Second byte is privilege mask 


PRIV_ASK = .(.PLACE-HLDR) <0.8>; 
PLACE_HLDR = .PLACE-HLDR + 1; 
SYMBOL_LEN =.(.PLACE_HLDR) <0,8>; 
IF .(.PRIV_ADR) <.PRIV_MSK,1> 
THEN 
BEGIN 
The bit is set, put ASCII in buffer 
PRVS_TO_PRINT = TRUE; 
FORMAT CINE ( FAOCTL_PR 
IF INSSC_FAOBUFLEN -".1 
THEN 
BEGIN 


i avoid too long a Line. If it is, print what we have and 
start a new Line with a blank header offset 


TERMINATE_LINE (); 
PRVS TO PRINT = FALSE; 
FORMAT CINE ( FAOCTL_PRIVHD2 ); 


END; 


ERR 


CONAWSWwr—OOe~ 


! Third byte is ASCII string count 
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INSLIST hese 1984 01:54:25 AX-11 Bliss-32 V4.0-742 Page 31 ] 
v04 INS_LIST a ae 1 93:33:48 INSTAL SRCJINSLIST.B32s1 . (19) \ 
1 
bs a0 XSBITL ‘PRINT_PRIVS'; 
1 1 ROUTINE PRINT_PRIVS (PRIV_ADR) = 
: ¢ } aed 
4 01 ! FUNCTIONAL DESCRIPTION: 
: 5 01 ' Print the ASCII symbol for each privilege bit set in the quadword 
6 01 : privilege mask, priv_adr. 
827 01 ! 
828 01 ! INPUT: 
; 9 4 priv_adr = address of quadword privilege mask 
831 0 : 
B36 0 BEGIN 
83 0 LOCAL 
te 0 PLACE_HLDR 
835 0 PRVS_TO_ PRINT, 
836 SYMBOL _CEN, 
tH 8 PRIV_MSK; 
839 8 PLACE_HLDR = PRVSAB_NAMES; ! point to start of privilege name table 
03 
03 
03 
03: 
03 
0 
0 
0 
0 
0. 
0. 


Check if bit is set in quadword 


=] 
AME WN OS ODNAUE WN 0 ODONAUE WN MH OC OODNOUES Wh O0@ 


‘Gd 6d Cp Cd Cod Cd Cp OD CD 
PAA 


! Remember that something is in buffer 
IV, .PLACE_HLDR); 
NS$FAOBUFDESC COSCSW_LENGTH3 GTR 70 


RLLLRRFSSLESESS 


2d 


' Currently no privs in buffer 
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! skip past count byte and ASCII privilege symbol 


INSLIST 
Vou~080 PRINT_PRIVS 


. 1 

: 8 106 END 

; 878 1088 

; 879 1999 

; 881 190) THEN TERA 
; 88 1 ue ELSE 

; 88 107 BEGIN 
; 884 1074 INSSFA 
; 885 1075 INSSFA 
; 88 107 

; 888 1078 RETURN TRUE; 
; 889 1079 1 END; : 


2A 04 


000000F F 
0000Vv 
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04 
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~ 
“ 
oo. 
wi 
wv 
- 
ie 
o 
mm 
4d 
x 
Lm 
9 
Po) 
" 
a 
v 
e 
» 
o 
m 
‘ 
= 
- 
J 
x7 
+ 
oe 
+ 
o 
on” 
3 
oO 
- 
a 
m 
2 
ee 


se feogt puffer fe 
] = .INSSFAOOUTBUF ; 


! routine print_privs 


OOFC 00000 PRINT_PRIVS: 
- WORD 
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; Routine Size: 117 bytes, Routine Base: S$CODE$S + 04F0 
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here 5 Senething other than the header in the buffer 


forget about unused priv header 


Save R2,R3,R4,R5,R6,R7 


FORMA 
INSSFAOBUFDESC, R6 
PRVSAB_NAMES, PLACE_HLDR 
PRVS_TO PRINT 
FAOCTL_PRIVHD 

» FORMAT_LIN 
{PLACE _HLDR) 


PLACE_HLDR 
(PLACE_HLDR)+, PRIV_MSK 
(PLACE-HLDR) SvABOC LEN 
P K, @PRIV_ADR, 2S 


#2, FORMAT LINE 
INSSF AOBUF DESC. RO 
0(RO) 
RO. #255 

#0, TERMINATE _LINE 

PRVS_TO_ PRINT 

FAOCTL_PRIVHD2 

#1, FORMAT LINE 

1 (SYMBOL LEN) CPLACE_HLDR], PLACE_HLDR 


PRVS_TO_ PRINT, 4$ 
#0, TERMINATE_LINE 


#255, INSSFAOBUFDESC 
INSS# ADOUTBUF , INSSFAOBUF DESC +4 
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; Routine Size: 
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45 bytes, Routine Base: S$CODE$ + 0565 
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16-Sep-1984 01:54:25 AX-11 Bliss-32 V4.0-742 Page 34 
ouput to temporary buffer routines 127808713 4 93:32:93 INSTAL. SRCJINSLIST.832;1 . (11). 
} 1 1 ZSBTTL ‘ouput to temporary buffer routines’; 
! 4 1 pot ine FORMAT_LINE (FAO_STRING, PARAMETER_LIST) = 
19 5 eee 
1 | 
1 ! FUNCTIONAL DESCRIPTION: 
1088 : Format an ASCII string and stuff it into the output buffer. 
1089 ' Update the buffer pointers to reflect the new stuff in the 
1090 : buffer. 
1091 ! 
1036 ! INPUT: 
109 : fao_string = Formatted Ascii Output control string for FAO 
1038 parameter_list= List of stuff to have formatted into buffer. 
1998 ! IMPLICIT INPUT: | 
109 ! Output buffer has been allocated and ins$faobufdesc is the | 
4 : descriptor for it. 
109 ‘ 
1100 2! OUTPUT: | 
1101 ! none 
1136 ! | 
110 ! ROUTINE VALUE 
1188 Success, or error status from SYSS$FAOL | 
1106 LOCAL 
BT OUTLEN : WORD; 
1109 EXECUTE ( SYSSFAOL (.FAO_ STRING, OUTLEN, INSSFAOBUFDESC, PARAMETER_LIST)); ' Format the buffer 
1110 INSSFAOBUFDESC CDSC$W_LENGTH) = .INSSFAOBUFDESC CDSC$W LENGTH] - .OUTLEN; ! decrement space left in bu 
1111 INSSFAOBUFDESC CDSCSA_POINTER] = .INSSFAOBUFDESC CDSCSA_POINTER] + .OUTLEN; ! Point to unused space left 
Vii¢ RETURN TRUE; 
11135 1 END; ! routine FORMAT_LINE 
0000 00000 FORMAT_LINE: 
«WORD Save nothing : 1083 
5€ 04 C2 pote SUBL2 # F 
08 AC 9F 0000 PUSHAB PARAMETER_LIST > 1109 
0000' CF 9F 00008 PUSHAB INSS$FAOBUFDESC : 
8? AE 9F it PUSHAB T 3 
4 ac oD F PUSHL FAO_STRING 3 
000000006 00 4 Fe \ CALLS #4, SYSS$FAOL 3 
10 O.€ 1 BLBC STATUS, $ 
0000" CF 6E— A2 1C SUBW QUTLEN, INSSFAOBUF DESC : 1110 
50 3 3C 00021 MOVZWL eyttin R 3 1111 
0000" CF CO 00024 ADDL2 RO, INSSFAOBUFDESC+4 ; 
50 01 00 00029 MOVL #1, RO 3 1119 
04 0002C 1$: RET 3111 
| 
| 
| 
{ 
! 


10 
INSLIST 14. -Sep-19 AX-11 Bliss-32 V 4395 -742 
v04 Ouput to temporary buffer routines 1a-8ep a 138 9}: 3¢ $3 INSTAL .SRC INSLIS T.832;1 
; 927 1115 1 ROUTINE TERMINATE_LINE : NOVALUE = 
s § 8 1118 BEGIN = 
: 9 111 14o4 
; 950 1333 
: 931 111 i FUNCT LONAL DESCRIPTION: 
; 9 § 1120 : Print the contents of the output buffer to byezeutput and re-initialize 
s 3 i 1 the descriptor of the buffer, and zero the buffer 
; 935 11 4 ' INPUT: 
; 9 11246 ! no 
te 1125 : 
; 9 11 $ ' IMPLICIT INPUT: 
; 9 11 ! Output buffer has been allocated and ins$faobufdesc is the 
; 940 1128 : descriptor for it. 
; 941 1129 ! 
; 969 1130 ' QUTPUT: 
3 oF 1% 1 Output the contents of ins$faooutbuf to sys$output 
: 945 11 ¢ i ROUTINE VALUE 
; 946 1134 ! status from $PUT 
> 947 1135 lene 
; 948 1136 
> 949 1137 LOCAL 
3 53! i : LINE_LEN; 
; 93¢ 1140 LINE LEN : NS$C FAQBUFLEN - .INSSFAOBUFDESC CDSC$W_LENGTH); 
; 95 1141 t APBOF 0,0,8,0) = rt INE_LEN; 
: 954 1148 MPBUF “PIR = ,TMPBUF_P 
; 955 114 CHSMOVE  ( (.LINE_LEN, ~ NSSF ADOUTBUF . TMPBUF _PTR); 
: 956 1144 2 TMPBUF_PTR = .TMPBUF_PTR + .LINE_LEN: 
; 957 1145 
; 958 Bp 
3; 959 114 INSSFAOBUFDESC COSC$W_LENGTH] = INSSC_FAOBUFLEN; 
: 960 1148 INSSFAOBUFDESC COSCSA_POINTER] = .INSSFAOOUTBUF ; 
3; 961 1149 2 CHSFILL (ZC° °, INSSCTFAOBUFLEN, .INSS$FAOOUTBUFS; 
3 4 1150 RETURN; 
: 96 1151 1 END; ' Routine TERMINATE_LINE 
O3FC 00000 TERMINATE LINE: 
.QORD Save R2,R3,R4,R5,R6,R7,RB,R9 
59 9000" CF 9E 0000 MOVAB INSSFAOQBUF Tne Rg * 
58 000' CF 3 900 MOVAB TMPBUF PTR 
ze 9 000C MOVZWL INSS$FAOBUF FoESC, LIME _LEN 
56 OOO000FF F 6 OOF SUBL3 Line LEN _# E-LEN 
00 88 6 17 MOVE LINE“LE Ne A ineet “PTR 
68 D 1B INCL TAPBOF Pfr 
57 FC AQ p 1D MOVL INSS$F AOOUTB 
00 88 67 6 1 moves LINE_LEN, TeRDS, RE TMPBUF _PTR 
6 6 ¢ § ADDL L NE-LEN TMPBUF PTR 
6 FF OB ; 9 MOVZBW #25 INSSFAOBUEDESC 
04 a9 7 p D MOVL R?, INSSFA ADBUFDESCS4 
OOFF BF 20 6E 09 C 90 1 MOVCS #0, (SP), (R7) 


: : ai 
10 va : ; d | 
Woatb80 ouput to temporary buffer routines 1b: Haat 93:38:48 PINS TAL SRETINGL IST B S341 Page 43§ 
04 00039 RET 3 1151 
; Routine Size: 58 bytes, Routine Base: S$CODES + 0592 


> 964 1152 «#1 
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; Routine Size: 


ouput to temporary buffer routines 
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14-Sep-1984 12:35:38 CINSTAL.SRCJINSL 


; 1 ei FORMAT_TERMINATE_LINE (FAO_STRING,PARAMETER_LIST) : NOVALUE = 


'oo4¢ 


FUNCTIONAL DESCRIPTION: 


i Call FORMAT LINE to format the Line, then call TERMINATE_LINE to 
} terminate the Line. 


i oe = 
BUILTIN 
CALLG, 


G(.AP,FORMAT_LINE); 
INATE_LINE()3 


0000 00000 FORMAT_TERMINATE LINE: 
WORD 


. ave we fk 
93 AF 6C FA 00002 CALLG (AP), FORMAT _LINE 
BC AF 00 FB 00006 CALLS #0, TERMINATE_LINE 
04 O000A RET 


11 bytes, Routine Base: S$CODE$ + OSCC 
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LIST 
“$80 ouput to temporary buffer routines -Sep-19 INSTAL .SRCJINSLIST.B32;1 (14) 


ROUTINE PRINTOUT = 
BEGIN 
eae 


] 
| 
: 117 | 
: We) 3 | 
: Ro 198 $i | 
: 988 1174 i FUNCTIONAL DESCRIPTION: | 
: p34 ae Print the contents of the temporary buffer to sys$output 
: $e He INPUT: | 
H none 
: 99 117 i 
; 994 1180 i IMPLICIT INPUT: 
; 995 1181 Output buffer has been allocated and ins$faobufdesc is the 
‘ 309 i 5 descriptor for it. 
: 998 1184 i QUTPUT: 
: 1900 at + Output the contents of ins$faooutbuf to sys$output 
eles | eS 
Py status Trom 
: 1008 He Sin Sah 
> 1005 1191 CAL 
; 1006 119¢ THPBUF _USELEN, 
: 1008 119% 
: 1009 1195 2 TMPBUF_USELEN = , TMPBUF _PTR = .TMPBUF; 
; 1910 1196 TMPBUF “PTR = .TMPBUF 
> 1012 1198 2 WHILE .TMPBUF_PTR - .TMPBUF LSS .TMPBUF_USELEN DO 
> 1013 1199 BEGIN 
St rr i ae 
> 1016 120 : 
: 1017 1508 ; SIZE = .(. TMPBUF_PTR) 5i3 8, 0>; 
3 1018 1204 3 INS$G_OUTR AB CRABS$W_R * SIZE; 
> 1020 1206 : EXECUTE (S$PUT = Res ae 
3 1982 1207 : P UF_PTR = LIMPBUF - PTR +71 + .SIZE; 
: 102 1209 : 
: 1024 1210 Sp RETURN TRUE; 
; 1025 1211 1€E ! Routine PRINTOUT 


.EXTRN SYSSPUT 
003C 00000 PRINTOUT: 
WO Save R2,R3,R4,R5 
MOVAB INSSG aOTRAB $e, RS 
SUBL3 TMPBUF> TMPBUF_PTR, TMPBUF_USELEN 
MOVL § TMPBUF, TMPBUF "PTR 
M T PRUE - TR, R17 
SUBL3. TMPBUF> R1. RO 
CMPL RO, WHPBUF ” “USELEN 


; 1170 


Sete Sete Se Sete eee 
ee 
a 
woo 
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leas 


Bete Se Ge Fe Ge Fe ee ee 


3; Size: 
; Run Time: 


63 AX- 
8 INS 
5 g} 9A 00024 MOVZBL (R1), a4} 
6 ¢ 80 8 7 MOVW size INS : oranges 
06 AS 01 Al 9€ A MOVAB 1(R15$, INS g ~OUTRAB+40 
DE AS 9F Q002F PUSHAB INSSG vi 
000000006 00 1 Fe $ CALLS #1, SYS yt 
0D E BLBC_ STATUS, 3 
50 64 1 C ADDL3 SIZE fMPBUF_PTR, RO 
64 01 A 0040 MOV 1(ROS, TMPBUF_PTR 
DI 11 00044 BRB 1$ 
50 01 DO 00046 ge: MOVL #1, RO 
04 00049 3$: RET 
; Routine Size: 74 bytes, Routine Base: SCODES + 0507 
1026 a 1 
1027 1213 «1 
1028 1214 1 END ! Module inslist 
1029 1215 0 ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
$SGLOBALS 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOwWNS 144 NOVEC, WRT, RD .NOEXE.NOSHR, LCL. REL, CON,NOPIC,ALIGN(2) 
SPLITS 672 NOVEC.NOWRT. RD NOEXE.NOSHR. LCL, REL. CON.NOPIC.ALIGN(2) 
SCODES 1569 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
. a 0 NOVEC,NOWRT,NORD * NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
Library Statistics 
ecoceece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 74 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: INSLIST/OBJ=OBJ$: INSLIST MSRC$: INSLIST/UPDATE=(ENHS$: INSLIST) 
1569 code + 828 data bytes 

00:31.3 
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:; Elapsed sees 01:38.9 
3 Lines/CPU Min: 
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